home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / math / cephes22 / ieee / ieee.c < prev    next >
Encoding:
Text File  |  1992-11-16  |  43.8 KB  |  1,462 lines
  1.  := 0;
  2.       end;
  3.     end;
  4.   end;
  5.   WaitToGo;
  6. end; { UserLineStylePlay }
  7.  
  8.  
  9. procedure SayGoodbye;
  10. { Say goodbye and then exit the program }
  11. var
  12.   ViewInfo : ViewPortType;
  13. begin
  14.   MainWindow('');
  15.   GetViewSettings(ViewInfo);
  16.   SetTextStyle(TriplexFont, HorizDir, 4);
  17.   SetTextJustify(CenterText, CenterText);
  18.   with ViewInfo do
  19.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  20.   StatusLine('Press any key to quit...');
  21.   repeat until KeyPressed;
  22. end; { SayGoodbye }
  23.  
  24.  
  25. PROCEDURE SelectMode;
  26. VAR
  27.     choice1,choice2     : CHAR;
  28.    xsize,ysize            : WORD;
  29. BEGIN
  30.     (* Let's select a mode *)
  31.     ClrScr;
  32.     WriteLn('VESADEMO:');
  33.     WriteLn('1. 256 colors');
  34.     WriteLn('2. 32768 colors');
  35.     WriteLn('3. 65536 colors');
  36.     WriteLn('4. 16777216 colors');
  37.     WriteLn('Q uit');
  38.     WriteLn;
  39.     Write('Your choice: ');
  40.     REPEAT
  41.         ReadLn(choice1);
  42.       IF choice1 <> '1' THEN BEGIN
  43.           WriteLn('Sorry !');
  44.          WriteLn('This demo wasn''t written for more as 256 colors !');
  45.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  46.          WriteLn('Switching to 256 colors.');
  47.          choice1 := '1';
  48.       END;
  49.     UNTIL choice1 IN ['1'..'4','q'];
  50.     IF choice1 = 'q' THEN Halt;
  51.  
  52.     WriteLn;
  53.     WriteLn;
  54.     WriteLn('a. 320x200');
  55.     WriteLn('b. 640x480');
  56.     WriteLn('c. 800x600');
  57.     WriteLn('d. 1024x768');
  58.     WriteLn('e. 1280x1024');
  59.     WriteLn('Q uit');
  60.     WriteLn;
  61.     Write('Your choice: ');
  62.     REPEAT
  63.         ReadLn(choice2);
  64.     UNTIL choice2 IN ['a'..'e','q'];
  65.     IF choice2 = 'q' THEN Halt;
  66.  
  67.     CASE choice2 OF
  68.         'a' : BEGIN
  69.             xsize := 320;
  70.             ysize := 200;
  71.         END;
  72.         'b' : BEGIN
  73.             xsize := 640;
  74.             ysize := 480;
  75.         END;
  76.         'c' : BEGIN
  77.             xsize := 800;
  78.             ysize := 600;
  79.         END;
  80.         'd' : BEGIN
  81.             xsize := 1024;
  82.             ysize := 768;
  83.         END;
  84.         'e' : BEGIN
  85.             xsize := 1280;
  86.             ysize := 1024;
  87.         END;
  88.     END;
  89.     CASE choice1 OF
  90.         '1' : mode := FindVesaMode(xsize,ysize,8);
  91.         '2' : mode := FindVesaMode(xsize,ysize,15);
  92.         '3' : mode := FindVesaMode(xsize,ysize,16);
  93.         '4' : mode := FindVesaMode(xsize,ysize,24);
  94.     END;
  95.     IF mode = 0 THEN BEGIN
  96.         WriteLn('No such mode could be found !');
  97.         WriteLn('Switching to to 320x200.');
  98.         ReadKey;
  99.         mode := V320x200x256;
  100.     END;
  101. END;
  102.  
  103. begin { program body }
  104.   SelectMode;
  105.   Initialize;
  106.   ReportStatus;
  107.  
  108. {  AspectRatioPlay; }
  109.   FillEllipsePlay;
  110.   SectorPlay;
  111.   WriteModePlay;
  112.  
  113.   ColorPlay;
  114.   { PalettePlay only intended to work on these drivers: }
  115.   if (GraphDriver = EGA) or
  116.       (GraphDriver = EGA64) or
  117.       (GraphDriver = VGA) then
  118.      PalettePlay;
  119.   PutPixelPlay;
  120. {  PutImagePlay; }
  121.   RandBarPlay;
  122.   BarPlay;
  123.   Bar3DPlay;
  124.   ArcPlay;
  125.   CirclePlay;
  126.   PiePlay;
  127.   LineToPlay;
  128.   LineRelPlay;
  129. {  LineStylePlay; }
  130. {  UserLineStylePlay; }
  131.   TextDump;
  132.   TextPlay;
  133.   CrtModePlay;
  134.   FillStylePlay;
  135.   FillPatternPlay;
  136.   PolyPlay;
  137.   SayGoodbye;
  138. {  CloseGraph; }
  139.   CloseVesa;
  140. end.
  141. ***************************************************
  142.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  143.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  144. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  145. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  146. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  147. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  148.     Color := RandColor;
  149.     SetColor(Color);
  150.     SetFillStyle(Random(CloseDotFill)+1, Color);
  151.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  152.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  153.   until KeyPressed;
  154.   WaitToGo;
  155. end; { RandBarPlay }
  156.  
  157. procedure ArcPlay;
  158. { Draw random arcs on the screen }
  159. var
  160.   MaxRadius : word;
  161.   EndAngle : word;
  162.   ArcInfo : ArcCoordsType;
  163. begin
  164.   MainWindow('Arc / GetArcCoords demonstration');
  165.   StatusLine('Esc aborts or press a key');
  166.   MaxRadius := MaxY div 10;
  167.   repeat
  168.     SetColor(RandColor);
  169.     EndAngle := Random(360);
  170.     SetLineStyle(SolidLn, 0, NormWidth);
  171.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  172.     GetArcCoords(ArcInfo);
  173.     with ArcInfo do
  174.     begin
  175.       Line(X, Y, XStart, YStart);
  176.       Line(X, Y, Xend, Yend);
  177.     end;
  178.   until KeyPressed;
  179.   WaitToGo;
  180. end; { ArcPlay }
  181.  
  182. procedure PutPixelPlay;
  183. { Demonstrate the PutPixel and GetPixel commands }
  184. const
  185.   Seed   = 1962; { A seed for the random number generator }
  186.   NumPts = 2000; { The number of pixels plotted }
  187.   Esc    = #27;
  188. var
  189.   I : word;
  190.   X, Y, Color : word;
  191.   XMax, YMax  : integer;
  192.   ViewInfo    : ViewPortType;
  193. begin
  194.   MainWindow('PutPixel / GetPixel demonstration');
  195.   StatusLine('Esc aborts or press a key...');
  196.  
  197.   GetViewSettings(ViewInfo);
  198.   with ViewInfo do
  199.   begin
  200.     XMax := (x2-x1-1);
  201.     YMax := (y2-y1-1);
  202.   end;
  203.  
  204.   while not KeyPressed do
  205.   begin
  206.     { Plot random pixels }
  207.     RandSeed := Seed;
  208.     I := 0;
  209.     while (not KeyPressed) and (I < NumPts) do
  210.     begin
  211.       Inc(I);
  212.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  213.     end;
  214.  
  215.     { Erase pixels }
  216.     RandSeed := Seed;
  217.     I := 0;
  218.     while (not KeyPressed) and (I < NumPts) do
  219.     begin
  220.       Inc(I);
  221.       X := Random(XMax)+1;
  222.       Y := Random(YMax)+1;
  223.       Color := GetPixel(X, Y);
  224.         if Color = RandColor then
  225.           PutPixel(X, Y, 0);
  226.      end;
  227.   end;
  228.   WaitToGo;
  229. end; { PutPixelPlay }
  230.  
  231. procedure PutImagePlay;
  232. { Demonstrate the GetImage and PutImage commands }
  233.  
  234. const
  235.   r  = 20;
  236.   StartX = 100;
  237.   StartY = 50;
  238.  
  239. var
  240.   CurPort : ViewPortType;
  241.  
  242. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  243. var
  244.   Step : integer;
  245. begin
  246.   Step := Random(2*r);
  247.   if Odd(Step) then
  248.     Step := -Step;
  249.   X := X + Step;
  250.   Step := Random(r);
  251.   if Odd(Step) then
  252.     Step := -Step;
  253.   Y := Y + Step;
  254.  
  255.   { Make saucer bounce off viewport walls }
  256.   with CurPort do
  257.   begin
  258.     if (x1 + X + Width - 1 > x2) then
  259.       X := x2-x1 - Width + 1
  260.     else
  261.       if (X < 0) then
  262.         X := 0;
  263.     if (y1 + Y + Height - 1 > y2) then
  264.       Y := y2-y1 - Height + 1
  265.     else
  266.       if (Y < 0) then
  267.         Y := 0;
  268.   end;
  269. end; { MoveSaucer }
  270.  
  271. var
  272.   Pausetime : word;
  273.   Saucer    : pointer;
  274.   X, Y      : integer;
  275.   ulx, uly  : word;
  276.   lrx, lry  : word;
  277.   Size      : word;
  278.   I         : word;
  279. begin
  280.   ClearDevice;
  281.   FullPort;
  282.  
  283.   { PaintScreen }
  284.   ClearDevice;
  285.   MainWindow('GetImage / PutImage Demonstration');
  286.   StatusLine('Esc aborts or press a key...');
  287.   GetViewSettings(CurPort);
  288.  
  289.   { DrawSaucer }
  290.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  291.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  292.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  293.   Circle(StartX+10, StartY-12, 2);
  294.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  295.   Circle(StartX-10, StartY-12, 2);
  296.   SetFillStyle(SolidFill, MaxColor);
  297.   FloodFill(StartX+1, StartY+4, GetColor);
  298.  
  299.   { ReadSaucerImage }
  300.   ulx := StartX-(r+1);
  301.   uly := StartY-14;
  302.   lrx := StartX+(r+1);
  303.   lry := StartY+(r div 3)+3;
  304.  
  305.   Size := ImageSize(ulx, uly, lrx, lry);
  306.   GetMem(Saucer, Size);
  307.   GetImage(ulx, uly, lrx, lry, Saucer^);
  308. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  309.  
  310.   { Plot some "stars" }
  311.   for I := 1 to 1000 do
  312.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  313.   X := MaxX div 2;
  314.   Y := MaxY div 2;
  315.   PauseTime := 70;
  316.  
  317.   { Move the saucer around }
  318.   repeat
  319. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  320.      Delay(PauseTime);
  321. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  322.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  323.   until KeyPressed;
  324.   FreeMem(Saucer, size);
  325.   WaitToGo;
  326. end; { PutImagePlay }
  327.  
  328. procedure PolyPlay;
  329. { Draw random polygons with random fill styles on the screen }
  330. const
  331.   MaxPts = 5;
  332. type
  333.   PolygonType = array[1..MaxPts] of PointType;
  334. var
  335.   Poly : PolygonType;
  336.   I, Color : word;
  337. begin
  338.   MainWindow('FillPoly demonstration');
  339.   StatusLine('Esc aborts or press a key...');
  340.   repeat
  341.     Color := RandColor;
  342.     SetFillStyle(Random(11)+1, Color);
  343.     SetColor(Color);
  344.     for I := 1 to MaxPts do
  345.       with Poly[I] do
  346.       begin
  347.         X := Random(MaxX);
  348.         Y := Random(MaxY);
  349.       end;
  350.     FillPoly(MaxPts, Poly);
  351.   until KeyPressed;
  352.   WaitToGo;
  353. end; { PolyPlay }
  354.  
  355. procedure FillStylePlay;
  356. { Display all of the predefined fill styles available }
  357. var
  358.   Style    : word;
  359.   Width    : word;
  360.   Height   : word;
  361.   X, Y     : word;
  362.   I, J     : word;
  363.   ViewInfo : ViewPortType;
  364.  
  365. procedure DrawBox(X, Y : word);
  366. begin
  367.   SetFillStyle(Style, MaxColor);
  368.   with ViewInfo do
  369.     Bar(X, Y, X+Width, Y+Height);
  370.   Rectangle(X, Y, X+Width, Y+Height);
  371.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  372.   Inc(Style);
  373. end; { DrawBox }
  374.  
  375. begin
  376.   MainWindow('Pre-defined fill styles');
  377.   GetViewSettings(ViewInfo);
  378.   with ViewInfo do
  379.   begin
  380.     Width := 2 * ((x2+1) div 13);
  381.     Height := 2 * ((y2-10) div 10);
  382.   end;
  383.   X := Width div 2;
  384.   Y := Height div 2;
  385.   Style := 0;
  386.   for J := 1 to 3 do
  387.   begin
  388.     for I := 1 to 4 do
  389.     begin
  390.       DrawBox(X, Y);
  391.       Inc(X, (Width div 2) * 3);
  392.     end;
  393.     X := Width div 2;
  394.     Inc(Y, (Height div 2) * 3);
  395.   end;
  396.   SetTextJustify(LeftText, TopText);
  397.   WaitToGo;
  398. end; { FillStylePlay }
  399.  
  400. procedure FillPatternPlay;
  401. { Display some user defined fill patterns }
  402. const
  403.   Patterns : array[0..11] of FillPatternType = (
  404.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  405.             OldColor which has a path of pixels of OldColor or NewColor
  406.             with sides touching back to the seed point, (XSeed, YSeed).
  407.             Therefore, only pixels of OldColor are modified and no other
  408.             information is changed.
  409.  
  410.             SEE ALSO
  411.  
  412.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  413.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  414.             SETVIEW
  415.  
  416.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  417.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  418.             IF WHICHVGA = 0 THEN STOP
  419.             DUMMY=RES640
  420.             SETVIEW 100, 100, 539, 379
  421.             FILLVIEW 10
  422.             WHILE INKEY$ = ""
  423.             WEND
  424.             VIDEOMODESET VMODE
  425.             END
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.                                                                          63
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.           FONTGETINFO
  450.  
  451.             PROTOTYPE
  452.  
  453.             SUB FONTGETINFO (Width%, Height%)
  454.  
  455.             INPUT
  456.  
  457.             no input parameters
  458.     WEND
  459.             MOUSEEXIT
  460.             VIDEOMODESET VMODE
  461.             END
  462.  
  463.  
  464.  
  465.  
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473.  
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480.  
  481.  
  482.  
  483.  
  484.  
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  
  502.                                                                          86
  503.  
  504.  
  505.  
  506.  
  507.  
  508.  
  509.           MOUSECURSORDEFAULT
  510.  
  511.             PROTOTYPE
  512.  
  513.             SUB MOUSECURSORDEFAULT ()
  514.  
  515.             INPUT
  516.  
  517.             no input parameters
  518.  
  519.             OUTPUT
  520.  
  521.             no value returned
  522.  
  523.             USAGE
  524.  
  525.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  526.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  527. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  528. ⁿ
  529. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  530. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  531. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  532. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  533. $╤
  534. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  535. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  536. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  537. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  538. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  539. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  540. ░£▒
  541. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  542. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  543.       end;
  544.     end;
  545.   end;
  546.   WaitToGo;
  547. end; { UserLineStylePlay }
  548.  
  549.  
  550. procedure SayGoodbye;
  551. { Say goodbye and then exit the program }
  552. var
  553.   ViewInfo : ViewPortType;
  554. begin
  555.   MainWindow('');
  556.   GetViewSettings(ViewInfo);
  557.   SetTextStyle(TriplexFont, HorizDir, 4);
  558.   SetTextJustify(CenterText, CenterText);
  559.   with ViewInfo do
  560.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  561.   StatusLine('Press any key to quit...');
  562.   repeat until KeyPressed;
  563. end; { SayGoodbye }
  564.  
  565.  
  566. PROCEDURE SelectMode;
  567. VAR
  568.     choice1,choice2     : CHAR;
  569.    xsize,ysize            : WORD;
  570. BEGIN
  571.     (* Let's select a mode *)
  572.     ClrScr;
  573.     WriteLn('VESADEMO:');
  574.     WriteLn('1. 256 colors');
  575.     WriteLn('2. 32768 colors');
  576.     WriteLn('3. 65536 colors');
  577.     WriteLn('4. 16777216 colors');
  578.     WriteLn('Q uit');
  579.     WriteLn;
  580.     Write('Your choice: ');
  581.     REPEAT
  582.         ReadLn(choice1);
  583.       IF choice1 <> '1' THEN BEGIN
  584.           WriteLn('Sorry !');
  585.          WriteLn('This demo wasn''t written for more as 256 colors !');
  586.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  587.          WriteLn('Switching to 256 colors.');
  588.          choice1 := '1';
  589.       END;
  590.     UNTIL choice1 IN ['1'..'4','q'];
  591.     IF choice1 = 'q' THEN Halt;
  592.  
  593.     WriteLn;
  594.     WriteLn;
  595.     WriteLn('a. 320x200');
  596.     WriteLn('b. 640x480');
  597.     WriteLn('c. 800x600');
  598.     WriteLn('d. 1024x768');
  599.     WriteLn('e. 1280x1024');
  600.     WriteLn('Q uit');
  601.     WriteLn;
  602.     Write('Your choice: ');
  603.     REPEAT
  604.         ReadLn(choice2);
  605.     UNTIL choice2 IN ['a'..'e','q'];
  606.     IF choice2 = 'q' THEN Halt;
  607.  
  608.     CASE choice2 OF
  609.         'a' : BEGIN
  610.             xsize := 320;
  611.             ysize := 200;
  612.         END;
  613.         'b' : BEGIN
  614.             xsize := 640;
  615.             ysize := 480;
  616.         END;
  617.         'c' : BEGIN
  618.             xsize := 800;
  619.             ysize := 600;
  620.         END;
  621.         'd' : BEGIN
  622.             xsize := 1024;
  623.             ysize := 768;
  624.         END;
  625.         'e' : BEGIN
  626.             xsize := 1280;
  627.             ysize := 1024;
  628.         END;
  629.     END;
  630.     CASE choice1 OF
  631.         '1' : mode := FindVesaMode(xsize,ysize,8);
  632.         '2' : mode := FindVesaMode(xsize,ysize,15);
  633.         '3' : mode := FindVesaMode(xsize,ysize,16);
  634.         '4' : mode := FindVesaMode(xsize,ysize,24);
  635.     END;
  636.     IF mode = 0 THEN BEGIN
  637.         WriteLn('No such mode could be found !');
  638.         WriteLn('Switching to to 320x200.');
  639.         ReadKey;
  640.         mode := V320x200x256;
  641.     END;
  642. END;
  643.  
  644. begin { program body }
  645.   SelectMode;
  646.   Initialize;
  647.   ReportStatus;
  648.  
  649. {  AspectRatioPlay; }
  650.   FillEllipsePlay;
  651.   SectorPlay;
  652.   WriteModePlay;
  653.  
  654.   ColorPlay;
  655.   { PalettePlay only intended to work on these drivers: }
  656.   if (GraphDriver = EGA) or
  657.       (GraphDriver = EGA64) or
  658.       (GraphDriver = VGA) then
  659.      PalettePlay;
  660.   PutPixelPlay;
  661. {  PutImagePlay; }
  662.   RandBarPlay;
  663.   BarPlay;
  664.   Bar3DPlay;
  665.   ArcPlay;
  666.   CirclePlay;
  667.   PiePlay;
  668.   LineToPlay;
  669.   LineRelPlay;
  670. {  LineStylePlay; }
  671. {  UserLineStylePlay; }
  672.   TextDump;
  673.   TextPlay;
  674.   CrtModePlay;
  675.   FillStylePlay;
  676.   FillPatternPlay;
  677.   PolyPlay;
  678.   SayGoodbye;
  679. {  CloseGraph; }
  680.   CloseVesa;
  681. end.
  682. ***************************************************
  683.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  684.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  685. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  686. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  687. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  688. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  689.     Color := RandColor;
  690.     SetColor(Color);
  691.     SetFillStyle(Random(CloseDotFill)+1, Color);
  692.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  693.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  694.   until KeyPressed;
  695.   WaitToGo;
  696. end; { RandBarPlay }
  697.  
  698. procedure ArcPlay;
  699. { Draw random arcs on the screen }
  700. var
  701.   MaxRadius : word;
  702.   EndAngle : word;
  703.   ArcInfo : ArcCoordsType;
  704. begin
  705.   MainWindow('Arc / GetArcCoords demonstration');
  706.   StatusLine('Esc aborts or press a key');
  707.   MaxRadius := MaxY div 10;
  708.   repeat
  709.     SetColor(RandColor);
  710.     EndAngle := Random(360);
  711.     SetLineStyle(SolidLn, 0, NormWidth);
  712.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  713.     GetArcCoords(ArcInfo);
  714.     with ArcInfo do
  715.     begin
  716.       Line(X, Y, XStart, YStart);
  717.       Line(X, Y, Xend, Yend);
  718.     end;
  719.   until KeyPressed;
  720.   WaitToGo;
  721. end; { ArcPlay }
  722.  
  723. procedure PutPixelPlay;
  724. { Demonstrate the PutPixel and GetPixel commands }
  725. const
  726.   Seed   = 1962; { A seed for the random number generator }
  727.   NumPts = 2000; { The number of pixels plotted }
  728.   Esc    = #27;
  729. var
  730.   I : word;
  731.   X, Y, Color : word;
  732.   XMax, YMax  : integer;
  733.   ViewInfo    : ViewPortType;
  734. begin
  735.   MainWindow('PutPixel / GetPixel demonstration');
  736.   StatusLine('Esc aborts or press a key...');
  737.  
  738.   GetViewSettings(ViewInfo);
  739.   with ViewInfo do
  740.   begin
  741.     XMax := (x2-x1-1);
  742.     YMax := (y2-y1-1);
  743.   end;
  744.  
  745.   while not KeyPressed do
  746.   begin
  747.     { Plot random pixels }
  748.     RandSeed := Seed;
  749.     I := 0;
  750.     while (not KeyPressed) and (I < NumPts) do
  751.     begin
  752.       Inc(I);
  753.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  754.     end;
  755.  
  756.     { Erase pixels }
  757.     RandSeed := Seed;
  758.     I := 0;
  759.     while (not KeyPressed) and (I < NumPts) do
  760.     begin
  761.       Inc(I);
  762.       X := Random(XMax)+1;
  763.       Y := Random(YMax)+1;
  764.       Color := GetPixel(X, Y);
  765.         if Color = RandColor then
  766.           PutPixel(X, Y, 0);
  767.      end;
  768.   end;
  769.   WaitToGo;
  770. end; { PutPixelPlay }
  771.  
  772. procedure PutImagePlay;
  773. { Demonstrate the GetImage and PutImage commands }
  774.  
  775. const
  776.   r  = 20;
  777.   StartX = 100;
  778.   StartY = 50;
  779.  
  780. var
  781.   CurPort : ViewPortType;
  782.  
  783. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  784. var
  785.   Step : integer;
  786. begin
  787.   Step := Random(2*r);
  788.   if Odd(Step) then
  789.     Step := -Step;
  790.   X := X + Step;
  791.   Step := Random(r);
  792.   if Odd(Step) then
  793.     Step := -Step;
  794.   Y := Y + Step;
  795.  
  796.   { Make saucer bounce off viewport walls }
  797.   with CurPort do
  798.   begin
  799.     if (x1 + X + Width - 1 > x2) then
  800.       X := x2-x1 - Width + 1
  801.     else
  802.       if (X < 0) then
  803.         X := 0;
  804.     if (y1 + Y + Height - 1 > y2) then
  805.       Y := y2-y1 - Height + 1
  806.     else
  807.       if (Y < 0) then
  808.         Y := 0;
  809.   end;
  810. end; { MoveSaucer }
  811.  
  812. var
  813.   Pausetime : word;
  814.   Saucer    : pointer;
  815.   X, Y      : integer;
  816.   ulx, uly  : word;
  817.   lrx, lry  : word;
  818.   Size      : word;
  819.   I         : word;
  820. begin
  821.   ClearDevice;
  822.   FullPort;
  823.  
  824.   { PaintScreen }
  825.   ClearDevice;
  826.   MainWindow('GetImage / PutImage Demonstration');
  827.   StatusLine('Esc aborts or press a key...');
  828.   GetViewSettings(CurPort);
  829.  
  830.   { DrawSaucer }
  831.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  832.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  833.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  834.   Circle(StartX+10, StartY-12, 2);
  835.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  836.   Circle(StartX-10, StartY-12, 2);
  837.   SetFillStyle(SolidFill, MaxColor);
  838.   FloodFill(StartX+1, StartY+4, GetColor);
  839.  
  840.   { ReadSaucerImage }
  841.   ulx := StartX-(r+1);
  842.   uly := StartY-14;
  843.   lrx := StartX+(r+1);
  844.   lry := StartY+(r div 3)+3;
  845.  
  846.   Size := ImageSize(ulx, uly, lrx, lry);
  847.   GetMem(Saucer, Size);
  848.   GetImage(ulx, uly, lrx, lry, Saucer^);
  849. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  850.  
  851.   { Plot some "stars" }
  852.   for I := 1 to 1000 do
  853.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  854.   X := MaxX div 2;
  855.   Y := MaxY div 2;
  856.   PauseTime := 70;
  857.  
  858.   { Move the saucer around }
  859.   repeat
  860. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  861.      Delay(PauseTime);
  862. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  863.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  864.   until KeyPressed;
  865.   FreeMem(Saucer, size);
  866.   WaitToGo;
  867. end; { PutImagePlay }
  868.  
  869. procedure PolyPlay;
  870. { Draw random polygons with random fill styles on the screen }
  871. const
  872.   MaxPts = 5;
  873. type
  874.   PolygonType = array[1..MaxPts] of PointType;
  875. var
  876.   Poly : PolygonType;
  877.   I, Color : word;
  878. begin
  879.   MainWindow('FillPoly demonstration');
  880.   StatusLine('Esc aborts or press a key...');
  881.   repeat
  882.     Color := RandColor;
  883.     SetFillStyle(Random(11)+1, Color);
  884.     SetColor(Color);
  885.     for I := 1 to MaxPts do
  886.       with Poly[I] do
  887.       begin
  888.         X := Random(MaxX);
  889.         Y := Random(MaxY);
  890.       end;
  891.     FillPoly(MaxPts, Poly);
  892.   until KeyPressed;
  893.   WaitToGo;
  894. end; { PolyPlay }
  895.  
  896. procedure FillStylePlay;
  897. { Display all of the predefined fill styles available }
  898. var
  899.   Style    : word;
  900.   Width    : word;
  901.   Height   : word;
  902.   X, Y     : word;
  903.   I, J     : word;
  904.   ViewInfo : ViewPortType;
  905.  
  906. procedure DrawBox(X, Y : word);
  907. begin
  908.   SetFillStyle(Style, MaxColor);
  909.   with ViewInfo do
  910.     Bar(X, Y, X+Width, Y+Height);
  911.   Rectangle(X, Y, X+Width, Y+Height);
  912.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  913.   Inc(Style);
  914. end; { DrawBox }
  915.  
  916. begin
  917.   MainWindow('Pre-defined fill styles');
  918.   GetViewSettings(ViewInfo);
  919.   with ViewInfo do
  920.   begin
  921.     Width := 2 * ((x2+1) div 13);
  922.     Height := 2 * ((y2-10) div 10);
  923.   end;
  924.   X := Width div 2;
  925.   Y := Height div 2;
  926.   Style := 0;
  927.   for J := 1 to 3 do
  928.   begin
  929.     for I := 1 to 4 do
  930.     begin
  931.       DrawBox(X, Y);
  932.       Inc(X, (Width div 2) * 3);
  933.     end;
  934.     X := Width div 2;
  935.     Inc(Y, (Height div 2) * 3);
  936.   end;
  937.   SetTextJustify(LeftText, TopText);
  938.   WaitToGo;
  939. end; { FillStylePlay }
  940.  
  941. procedure FillPatternPlay;
  942. { Display some user defined fill patterns }
  943. const
  944.   Patterns : array[0..11] of FillPatternType = (
  945.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  946.             OldColor which has a path of pixels of OldColor or NewColor
  947.             with sides touching back to the seed point, (XSeed, YSeed).
  948.             Therefore, only pixels of OldColor are modified and no other
  949.             information is changed.
  950.  
  951.             SEE ALSO
  952.  
  953.             DRWFILLBOX, DRWFILLCIRCLE, DRWFILLELLIPSE, FILLAREA,
  954.             FILLCONVEXPOLY, FILLPAGE, FILLPOLY, FILLSCREEN, FILLVIEW,
  955.             SETVIEW
  956.  
  957.             EXAMPL(HNxHHO$B<BBBB<$<BBBB<<BBBB<$BBBBBF:0BBBBF:$BBBF:B<""AAA""AAAAA"<B@@B<" <2\A">>xDDxDNDD <` <>BB= > <BBBB< BBBBF:2L\bBBBB&AaQIECA8$>""">0@@A>@@@ b$(. b$(*
  958.     $    $    $DDDDDDD¬U¬U¬U¬U¬U¬U¬Uw▌w▌w▌w▌w▌w▌w▌°°°⌠ⁿ°°⌠⌠ⁿ⌠⌠ⁿⁿ°°°    ≈  ≈  ≈≈         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       7HH7"B\DBBRL~BB@@@@@@?R~!!~?DDDD8BBBB|@@Ç>P>III>"AA""AAA"Uw<DDDD86II6"EIQ"\ @@ "AAAAA> >     hH02L2L$$<H(,$<>>>>>>>         VMODE=VIDEOMODEGET
  959.             IF WHICHVGA = 0 THEN STOP
  960.             DUMMY=RES640
  961.             SETVIEW 100, 100, 539, 379
  962.             FILLVIEW 10
  963.             WHILE INKEY$ = ""
  964.             WEND
  965.             VIDEOMODESET VMODE
  966.             END
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.                                                                          63
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.           FONTGETINFO
  991.  
  992.             PROTOTYPE
  993.  
  994.             SUB FONTGETINFO (Width%, Height%)
  995.  
  996.             INPUT
  997.  
  998.             no input parameters
  999.     WEND
  1000.             MOUSEEXIT
  1001.             VIDEOMODESET VMODE
  1002.             END
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015.  
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021.  
  1022.  
  1023.  
  1024.  
  1025.  
  1026.  
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037.  
  1038.  
  1039.  
  1040.  
  1041.  
  1042.  
  1043.                                                                          86
  1044.  
  1045.  
  1046.  
  1047.  
  1048.  
  1049.  
  1050.           MOUSECURSORDEFAULT
  1051.  
  1052.             PROTOTYPE
  1053.  
  1054.             SUB MOUSECURSORDEFAULT ()
  1055.  
  1056.             INPUT
  1057.  
  1058.             no input parameters
  1059.  
  1060.             OUTPUT
  1061.  
  1062.             no value returned
  1063.  
  1064.             USAGE
  1065.  
  1066.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  1067.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  1068. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  1069. ⁿ
  1070. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  1071. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  1072. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  1073. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  1074. $╤
  1075. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  1076. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  1077. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  1078. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  1079. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  1080. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  1081. ░£▒
  1082. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  1083. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  1084.       end;
  1085.     end;
  1086.   end;
  1087.   WaitToGo;
  1088. end; { UserLineStylePlay }
  1089.  
  1090.  
  1091. procedure SayGoodbye;
  1092. { Say goodbye and then exit the program }
  1093. var
  1094.   ViewInfo : ViewPortType;
  1095. begin
  1096.   MainWindow('');
  1097.   GetViewSettings(ViewInfo);
  1098.   SetTextStyle(TriplexFont, HorizDir, 4);
  1099.   SetTextJustify(CenterText, CenterText);
  1100.   with ViewInfo do
  1101.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  1102.   StatusLine('Press any key to quit...');
  1103.   repeat until KeyPressed;
  1104. end; { SayGoodbye }
  1105.  
  1106.  
  1107. PROCEDURE SelectMode;
  1108. VAR
  1109.     choice1,choice2     : CHAR;
  1110.    xsize,ysize            : WORD;
  1111. BEGIN
  1112.     (* Let's select a mode *)
  1113.     ClrScr;
  1114.     WriteLn('VESADEMO:');
  1115.     WriteLn('1. 256 colors');
  1116.     WriteLn('2. 32768 colors');
  1117.     WriteLn('3. 65536 colors');
  1118.     WriteLn('4. 16777216 colors');
  1119.     WriteLn('Q uit');
  1120.     WriteLn;
  1121.     Write('Your choice: ');
  1122.     REPEAT
  1123.         ReadLn(choice1);
  1124.       IF choice1 <> '1' THEN BEGIN
  1125.           WriteLn('Sorry !');
  1126.          WriteLn('This demo wasn''t written for more as 256 colors !');
  1127.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  1128.          WriteLn('Switching to 256 colors.');
  1129.          choice1 := '1';
  1130.       END;
  1131.     UNTIL choice1 IN ['1'..'4','q'];
  1132.     IF choice1 = 'q' THEN Halt;
  1133.  
  1134.     WriteLn;
  1135.     WriteLn;
  1136.     WriteLn('a. 320x200');
  1137.     WriteLn('b. 640x480');
  1138.     WriteLn('c. 800x600');
  1139.     WriteLn('d. 1024x768');
  1140.     WriteLn('e. 1280x1024');
  1141.     WriteLn('Q uit');
  1142.     WriteLn;
  1143.     Write('Your choice: ');
  1144.     REPEAT
  1145.         ReadLn(choice2);
  1146.     UNTIL choice2 IN ['a'..'e','q'];
  1147.     IF choice2 = 'q' THEN Halt;
  1148.  
  1149.     CASE choice2 OF
  1150.         'a' : BEGIN
  1151.             xsize := 320;
  1152.             ysize := 200;
  1153.         END;
  1154.         'b' : BEGIN
  1155.             xsize := 640;
  1156.             ysize := 480;
  1157.         END;
  1158.         'c' : BEGIN
  1159.             xsize := 800;
  1160.             ysize := 600;
  1161.         END;
  1162.         'd' : BEGIN
  1163.             xsize := 1024;
  1164.             ysize := 768;
  1165.         END;
  1166.         'e' : BEGIN
  1167.             xsize := 1280;
  1168.             ysize := 1024;
  1169.         END;
  1170.     END;
  1171.     CASE choice1 OF
  1172.         '1' : mode := FindVesaMode(xsize,ysize,8);
  1173.         '2' : mode := FindVesaMode(xsize,ysize,15);
  1174.         '3' : mode := FindVesaMode(xsize,ysize,16);
  1175.         '4' : mode := FindVesaMode(xsize,ysize,24);
  1176.     END;
  1177.     IF mode = 0 THEN BEGIN
  1178.         WriteLn('No such mode could be found !');
  1179.         WriteLn('Switching to to 320x200.');
  1180.         ReadKey;
  1181.         mode := V320x200x256;
  1182.     END;
  1183. END;
  1184.  
  1185. begin { program body }
  1186.   SelectMode;
  1187.   Initialize;
  1188.   ReportStatus;
  1189.  
  1190. {  AspectRatioPlay; }
  1191.   FillEllipsePlay;
  1192.   SectorPlay;
  1193.   WriteModePlay;
  1194.  
  1195.   ColorPlay;
  1196.   { PalettePlay only intended to work on these drivers: }
  1197.   if (GraphDriver = EGA) or
  1198.       (GraphDriver = EGA64) or
  1199.       (GraphDriver = VGA) then
  1200.      PalettePlay;
  1201.   PutPixelPlay;
  1202. {  PutImagePlay; }
  1203.   RandBarPlay;
  1204.   BarPlay;
  1205.   Bar3DPlay;
  1206.   ArcPlay;
  1207.   CirclePlay;
  1208.   PiePlay;
  1209.   LineToPlay;
  1210.   LineRelPlay;
  1211. {  LineStylePlay; }
  1212. {  UserLineStylePlay; }
  1213.   TextDump;
  1214.   TextPlay;
  1215.   CrtModePlay;
  1216.   FillStylePlay;
  1217.   FillPatternPlay;
  1218.   PolyPlay;
  1219.   SayGoodbye;
  1220. {  CloseGraph; }
  1221.   CloseVesa;
  1222. end.
  1223. ***************************************************
  1224.     '* SHOW D2ROTATE (ABOUT THE ORIGIN)
  1225.     '****************************************************************∞╥≤c≤*φè#^│v/╒:j═φ0t+l▓ô"¬"g└≡?%ªêΣ│H╫½╫╜├¿U'╒⌐⌡ ßV?╩
  1226. ¬ujOΦçEZ1∞▐! ▄B╛Σ8║æ]1GlNÜ┐q▌▓;ô$ΦzE<cª*bEô#ä╧ñÅ"∩─LrdaÖ ╠º╫a^¥£å╬1~)@ëÖMδ╫0═6DäFê¬Çv┼ß╨kæpτ╪É)}ª 1w3╤╧ü⌡¥╓h▓╣≈ïÅaÑ[TⁿHqªÉ╝DKÄ─Y-∞tT╤Θ╨º╟╪.*ÇI9lΦ≈{πτcσ$τπßoFr╪╨∩┼╞╟;O2■e²LÜ4^N|╪½ÅO?╔°FOz`╟╟╟'<>>π$πΘù6·
  1227. Xgî╖│°oîδπGƒd╝▀░?■╪╔_9L ⌡ôⁿq'æO▀ƒn4╔▀╚▄┼3pτ.òO°·}÷╕ⁿ±'æO?ít│!√8ßÑ≤/┐╣p┼≥┘E╦Vox╕cΦé5╟╚º╙$?√$≥ΘZεsî≡åìΓpKù¢ïß X╥ 9╞≈\µk┤O¥_ 5Üö\≤éÄ┌╤A[╤ÿáï┼éNⁿÅu16    g,%hc╙╨cD╨Vï┘R¢öKñR;8εáΣ╢╪ós╤π╡á└èxgzPÄMú╫yαºÉ+σJ¢i+▓â3╥    ═Ñ╙î^ºG▓█πérφçs %#(╗⌠?┼%u8≡6+QÉ))ò)Afw≈╣╪)B&4░åLXV:δät@Å.;5Φf╢Ät┐ΣJ╫─U8úÇ╟éö£╕p╔┴⌠vg╨╬╥é÷╪╣┬ΓI.ç≡^v╤ZΦÇ& ╒┌6ñô6XßNè╡╬E₧Ñ
  1228. kIº╠▄A+╣╥éb²tæ-Y¡½αÑa═uuîÇ╢αêvhuª╡SÅ┤vèùú¥F;p<d⌐/F─d█éT%▓KΦû=q■öI┐ ┐╠6S$▒÷╚ENΩ¥Fû9╔┌R'╝ ╧φ└?g┬j▓0═/b╖₧─mûé╢┌»ÿÄë/·<éò■░╤╟╢├Xσ:╥P3Θ"╬Læsφ░┌öSö!╗¿*mN£WΣÇ£┤~#╗ææ≥RΩóh:à▌.æ≈╕▌v£äàd▒à╒├=░╖π║$howeg*╬    6ù▄ƒô╕φ░Ö╢qΘD>(w@úKεHÆ╛öúΣU
  1229. éÜR╔╤W▄èê 2M%ó.▓SNÖA1ùJE╢║l]▓¿>\%└Å4ßO▄£â⌐& ê/)8vSP▀▓ôⁿææ√ü√ÑÄa⌠â╚4S╓╟P- ?Σá╕▓Næ*q╡UΘ▓≈^ñ·I.rúR&$Y^╚%è≡B┌≈Ceat
  1230.     Color := RandColor;
  1231.     SetColor(Color);
  1232.     SetFillStyle(Random(CloseDotFill)+1, Color);
  1233.     Bar3D(Random(MaxWidth), Random(MaxHeight),
  1234.           Random(MaxWidth), Random(MaxHeight), 0, TopOff);
  1235.   until KeyPressed;
  1236.   WaitToGo;
  1237. end; { RandBarPlay }
  1238.  
  1239. procedure ArcPlay;
  1240. { Draw random arcs on the screen }
  1241. var
  1242.   MaxRadius : word;
  1243.   EndAngle : word;
  1244.   ArcInfo : ArcCoordsType;
  1245. begin
  1246.   MainWindow('Arc / GetArcCoords demonstration');
  1247.   StatusLine('Esc aborts or press a key');
  1248.   MaxRadius := MaxY div 10;
  1249.   repeat
  1250.     SetColor(RandColor);
  1251.     EndAngle := Random(360);
  1252.     SetLineStyle(SolidLn, 0, NormWidth);
  1253.     Arc(Random(MaxX), Random(MaxY), Random(EndAngle), EndAngle, Random(MaxRadius));
  1254.     GetArcCoords(ArcInfo);
  1255.     with ArcInfo do
  1256.     begin
  1257.       Line(X, Y, XStart, YStart);
  1258.       Line(X, Y, Xend, Yend);
  1259.     end;
  1260.   until KeyPressed;
  1261.   WaitToGo;
  1262. end; { ArcPlay }
  1263.  
  1264. procedure PutPixelPlay;
  1265. { Demonstrate the PutPixel and GetPixel commands }
  1266. const
  1267.   Seed   = 1962; { A seed for the random number generator }
  1268.   NumPts = 2000; { The number of pixels plotted }
  1269.   Esc    = #27;
  1270. var
  1271.   I : word;
  1272.   X, Y, Color : word;
  1273.   XMax, YMax  : integer;
  1274.   ViewInfo    : ViewPortType;
  1275. begin
  1276.   MainWindow('PutPixel / GetPixel demonstration');
  1277.   StatusLine('Esc aborts or press a key...');
  1278.  
  1279.   GetViewSettings(ViewInfo);
  1280.   with ViewInfo do
  1281.   begin
  1282.     XMax := (x2-x1-1);
  1283.     YMax := (y2-y1-1);
  1284.   end;
  1285.  
  1286.   while not KeyPressed do
  1287.   begin
  1288.     { Plot random pixels }
  1289.     RandSeed := Seed;
  1290.     I := 0;
  1291.     while (not KeyPressed) and (I < NumPts) do
  1292.     begin
  1293.       Inc(I);
  1294.         PutPixel(Random(XMax)+1, Random(YMax)+1, RandColor);
  1295.     end;
  1296.  
  1297.     { Erase pixels }
  1298.     RandSeed := Seed;
  1299.     I := 0;
  1300.     while (not KeyPressed) and (I < NumPts) do
  1301.     begin
  1302.       Inc(I);
  1303.       X := Random(XMax)+1;
  1304.       Y := Random(YMax)+1;
  1305.       Color := GetPixel(X, Y);
  1306.         if Color = RandColor then
  1307.           PutPixel(X, Y, 0);
  1308.      end;
  1309.   end;
  1310.   WaitToGo;
  1311. end; { PutPixelPlay }
  1312.  
  1313. procedure PutImagePlay;
  1314. { Demonstrate the GetImage and PutImage commands }
  1315.  
  1316. const
  1317.   r  = 20;
  1318.   StartX = 100;
  1319.   StartY = 50;
  1320.  
  1321. var
  1322.   CurPort : ViewPortType;
  1323.  
  1324. procedure MoveSaucer(var X, Y : integer; Width, Height : integer);
  1325. var
  1326.   Step : integer;
  1327. begin
  1328.   Step := Random(2*r);
  1329.   if Odd(Step) then
  1330.     Step := -Step;
  1331.   X := X + Step;
  1332.   Step := Random(r);
  1333.   if Odd(Step) then
  1334.     Step := -Step;
  1335.   Y := Y + Step;
  1336.  
  1337.   { Make saucer bounce off viewport walls }
  1338.   with CurPort do
  1339.   begin
  1340.     if (x1 + X + Width - 1 > x2) then
  1341.       X := x2-x1 - Width + 1
  1342.     else
  1343.       if (X < 0) then
  1344.         X := 0;
  1345.     if (y1 + Y + Height - 1 > y2) then
  1346.       Y := y2-y1 - Height + 1
  1347.     else
  1348.       if (Y < 0) then
  1349.         Y := 0;
  1350.   end;
  1351. end; { MoveSaucer }
  1352.  
  1353. var
  1354.   Pausetime : word;
  1355.   Saucer    : pointer;
  1356.   X, Y      : integer;
  1357.   ulx, uly  : word;
  1358.   lrx, lry  : word;
  1359.   Size      : word;
  1360.   I         : word;
  1361. begin
  1362.   ClearDevice;
  1363.   FullPort;
  1364.  
  1365.   { PaintScreen }
  1366.   ClearDevice;
  1367.   MainWindow('GetImage / PutImage Demonstration');
  1368.   StatusLine('Esc aborts or press a key...');
  1369.   GetViewSettings(CurPort);
  1370.  
  1371.   { DrawSaucer }
  1372.   Ellipse(StartX, StartY, 0, 360, r, (r div 3)+2);
  1373.   Ellipse(StartX, StartY-4, 190, 357, r, r div 3);
  1374.   Line(StartX+7, StartY-6, StartX+10, StartY-12);
  1375.   Circle(StartX+10, StartY-12, 2);
  1376.   Line(StartX-7, StartY-6, StartX-10, StartY-12);
  1377.   Circle(StartX-10, StartY-12, 2);
  1378.   SetFillStyle(SolidFill, MaxColor);
  1379.   FloodFill(StartX+1, StartY+4, GetColor);
  1380.  
  1381.   { ReadSaucerImage }
  1382.   ulx := StartX-(r+1);
  1383.   uly := StartY-14;
  1384.   lrx := StartX+(r+1);
  1385.   lry := StartY+(r div 3)+3;
  1386.  
  1387.   Size := ImageSize(ulx, uly, lrx, lry);
  1388.   GetMem(Saucer, Size);
  1389.   GetImage(ulx, uly, lrx, lry, Saucer^);
  1390. {  PutImage(ulx, uly, Saucer^, XORput);               { erase image }
  1391.  
  1392.   { Plot some "stars" }
  1393.   for I := 1 to 1000 do
  1394.      PutPixel(Random(MaxX), Random(MaxY), RandColor);
  1395.   X := MaxX div 2;
  1396.   Y := MaxY div 2;
  1397.   PauseTime := 70;
  1398.  
  1399.   { Move the saucer around }
  1400.   repeat
  1401. {     PutImage(X, Y, Saucer^, XORput);                 { draw image }
  1402.      Delay(PauseTime);
  1403. {     PutImage(X, Y, Saucer^, XORput);                 { erase image }
  1404.      MoveSaucer(X, Y, lrx - ulx + 1, lry - uly + 1);  { width/height }
  1405.   until KeyPressed;
  1406.   FreeMem(Saucer, size);
  1407.   WaitToGo;
  1408. end; { PutImagePlay }
  1409.  
  1410. procedure PolyPlay;
  1411. { Draw random polygons with random fill styles on the screen }
  1412. const
  1413.   MaxPts = 5;
  1414. type
  1415.   PolygonType = array[1..MaxPts] of PointType;
  1416. var
  1417.   Poly : PolygonType;
  1418.   I, Color : word;
  1419. begin
  1420.   MainWindow('FillPoly demonstration');
  1421.   StatusLine('Esc aborts or press a key...');
  1422.   repeat
  1423.     Color := RandColor;
  1424.     SetFillStyle(Random(11)+1, Color);
  1425.     SetColor(Color);
  1426.     for I := 1 to MaxPts do
  1427.       with Poly[I] do
  1428.       begin
  1429.         X := Random(MaxX);
  1430.         Y := Random(MaxY);
  1431.       end;
  1432.     FillPoly(MaxPts, Poly);
  1433.   until KeyPressed;
  1434.   WaitToGo;
  1435. end; { PolyPlay }
  1436.  
  1437. procedure FillStylePlay;
  1438. { Display all of the predefined fill styles available }
  1439. var
  1440.   Style    : word;
  1441.   Width    : word;
  1442.   Height   : word;
  1443.   X, Y     : word;
  1444.   I, J     : word;
  1445.   ViewInfo : ViewPortType;
  1446.  
  1447. procedure DrawBox(X, Y : word);
  1448. begin
  1449.   SetFillStyle(Style, MaxColor);
  1450.   with ViewInfo do
  1451.     Bar(X, Y, X+Width, Y+Height);
  1452.   Rectangle(X, Y, X+Width, Y+Height);
  1453.   OutTextXY(X+(Width div 2), Y+Height+4, Int2Str(Style));
  1454.   Inc(Style);
  1455. end; { DrawBox }
  1456.  
  1457. begin
  1458.   MainWindow('Pre-defined fill styles');
  1459.   GetViewSettings(ViewInfo);
  1460.   with ViewInfo do
  1461.   begin
  1462.     Width := 2 * ((x2+1) div 13);
  1463.     Height := 2 * ((y2-10) div 10);
  1464.   end;
  1465.   X := Width div 2;
  1466.   Y := Height div 2;
  1467.   Style := 0;
  1468.   for J := 1 to 3 do
  1469.   begin
  1470.     for I := 1 to 4 do
  1471.     begin
  1472.       DrawBox(X, Y);
  1473.       Inc(X, (Width div 2) * 3);
  1474.     end;
  1475.     X := Width div 2;
  1476.     Inc(Y, (Height div 2) * 3);
  1477.   end;
  1478.   SetTextJustify(LeftText, TopText);
  1479.   WaitToGo;
  1480. end; { FillStylePlay }
  1481.  
  1482. procedure FillPatternPlay;
  1483. { Display some user defined fill patterns }
  1484. const
  1485.   Patterns : array[0..11] of FillPatternType = (
  1486.   ($AA, $55, $AA, $55, $AA, $55, $AA, $55 üÖü üÖü  !BBäx!!!BBäx!BBäx"""DDêp""DDêp>"""BBääêp""!"BDäêêp>IÉÆ|      ° @≥î>00>><Dêx  !BBäx""DDêp&<"DDêê&22TTêêê$> $< @äêp>          ⁿBBBB<  @@Ç****DDDDDDDU¬U¬U¬U¬U¬U¬U¬▌w▌w▌w▌w▌w▌w▌w°°°≥■°°≥≥■≥≥■■°°°    ≤  ≤  ≤≤         °                     ≡≡≡≡≡≡≡≡≡≡≡≡≡≡       ;DDD;    $"Bdÿ>@@@>||>Ac]AAA1N"A""2,  `1NA"*III*<Bü üB<<BüüüB<A" \"QIE" < <BBBB  @@    ~ ?  @ÇB$$B ""A$$"AII6 üBr»$**IIII**ccregion.  The region is defined as any pixel of
  1487.             OldColor which has a path of pixels of OldColor or NewColor
  1488.             with sides touching back to the seed point, (XSeed, YSeed).
  1489.             Therefore, only pixels of OldColor are modified and no other
  1490.             information is ch